home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 6 / CU Amiga Magazine's Super CD-ROM 06 (1996)(EMAP Images)(GB)(Track 1 of 4)[!][issue 1997-01].iso / cucd / readers / utils / gui4cli / g4c / gm / textwrap.gc < prev    next >
Text File  |  1996-10-28  |  2KB  |  108 lines
  1. G4C
  2.  
  3. ; A GUI for the PD Rewrap and StripHR programs.
  4. ; By G. Maddox 24 Sep 1996
  5.  
  6.  
  7. WinBig -1 -1 350 109 "TextWrap 1.0"
  8. WinSmall 200 0 240 -1
  9. WinType 11110000
  10. UseTopaz
  11. NofontSense
  12.  
  13. ; ------------------------ GRAPHICS -------------------------
  14.  
  15. BOX 0 0 0 0 IN BUTTON
  16. BOX 4 2 342 45 OUT BUTTON
  17. BOX 4 48 342 38 OUT BUTTON
  18. BOX 4 87 342 20 OUT BUTTON
  19.  
  20. ; ------------------------ GENERAL EVENTS -------------------
  21.  
  22. xOnLoad
  23. setvar tw_flag 0
  24. ifexists FILE c:ReWrap        ; find out if the programs needed exist
  25.   ifexists FILE c:StripHR    ; & notify user if they don't
  26.     setvar tw_flag 1
  27.   endif
  28. endif
  29. if $tw_flag = 0
  30.   ezreq 'This GUI needs files:\nc:ReWrap and c:StripHR\nto work correctly.' OK ""
  31. endif
  32. delvar tw_flag
  33. SetVar tw_inf "No File Loaded."
  34. SetVar wdth "75"
  35. SetVar tab "5"
  36. GuiOpen TextWrap.gc
  37. Update TextWrap.gc 1 $wdth
  38. Update TextWrap.gc 2 $tab
  39. Update TextWrap.gc 3 $tw_inf
  40.  
  41. xOnClose
  42. GuiQuit TextWrap.gc
  43.  
  44. ; ------------------------ THE GADGETS ----------------------
  45.  
  46. xButton 15 10 60 12 "Open"
  47. ReqFile -1 -1 300 -40 "Select File..." LOAD tw_src SYS:
  48. Gosub TextWrap.gc split
  49.  
  50. xHSlider 95 54 200 11 "Columns:" wdth 35 140 75 "%1ld"
  51. GadID 1
  52.  
  53. xHSlider 95 69 200 11 "   Tabs:" tab 0 8 5 "%1ld"
  54. GadID 2
  55.  
  56. Text 80 10 250 13 $tw_inf 35 BOX
  57. GadID 3
  58.  
  59. xTextIn 80 27 250 13 "Save As" tw_ouf "" 35
  60. GadID 4
  61. Gosub TextWrap.gc check
  62.  
  63. xButton 25 91 70 12 "Start"
  64. If $tw_src != ""
  65.    Joinfile $tw_path $tw_ouf tw_out
  66.    CLI 'c:striphr >nil: $tw_src t:temp.txt'
  67.    CLI 'c:rewrap >nil: -l$wdth -t$tab t:temp.txt $tw_out'
  68.    Delete t:temp.txt
  69.    EzReq "File Processed." "Okay" opt
  70.    Stop
  71. Else
  72.    EzReq "Can't process that file -\ngive me one that exists!" "Whoops!" opt
  73.    Stop
  74. Endif
  75.  
  76. xButton 140 91 70 12 "Info"
  77. EzReq "TextWrap 1.0\n\nBy G.Maddox 1996.\n\nWritten using the\nwonderful Gui4Cli\nprogram.\n" "Cool!" opt
  78. Stop
  79.  
  80. xButton 255 91 70 12 "Quit"
  81. GuiClose TextWrap.gc
  82.  
  83. ; ------------------------ ROUTINES -------------------------
  84.  
  85. xRoutine split
  86. Extract tw_src FILE tw_inf
  87. Extract tw_inf UNQUOTE tw_inf
  88. Extract tw_src PATH tw_path
  89. Extract tw_path UNQUOTE tw_path
  90. Setvar tw_ouf '$tw_inf'
  91. Appvar tw_ouf ".rw"
  92. Update TextWrap.gc 3 $tw_inf
  93. Update TextWrap.gc 4 $tw_ouf
  94. Return
  95.  
  96. xRoutine check
  97. Cutvar tw_ouf COPY CHAR -3 tw_end
  98. If $end != ".rw"
  99.    Appvar tw_ouf ".rw"
  100.    Delvar tw_end
  101.    Update TextWrap.gc 4 $tw_ouf
  102. Endif
  103. Return
  104.  
  105.  
  106.  
  107.  
  108.